10 REM ******* VERSCHIEBEN MIT DEM BLOCK-PROGRAMM *******
20 PRINTCHR$(147):REM C 128 = WAIT0,1
30 POKE53280,0:POKE53281,5
40 POKE241,1:REM C64 = POKE646,1
50 REM ----- FARBRAM BELEGEN -----
60 FOR I=0 TO 1000:POKE55296+I,1:NEXTI:REM DAUERT EIN WENIG!
70 REM ----- BILDSCHIRM BELEGEN -----
80 S=1504:REM STARTADRESSE QUELLE
90 FOR I=0 TO 39:POKES+I,I:NEXTI
100 REM ----- PARAMETER ABFRAGEN -----
110 INPUT"WIEVIELE BYTES (SINNVOLL 0 BIS 40)";N
120 INPUT"ZIELORT (SINNVOLL 1024 BIS 1984)";Z
130 REM ----- BERECHNEN UND UEBERGABE -----
140 A=INT(S/256):POKE255,A:POKE254,S-256*A
150 A=INT(Z/256):POKE253,A:POKE252,Z-256*A
160 A=INT(N/256):POKE251,A:POKE250,N-256*A
170 REM ----- VERSCHIEBEN -----
180 SYS4864:REM C64 = SYS 49152
190 END